#/usr/bin/env perl

use utf8;

@array = qw{dino fred barney ippo};

while($e = shift(@array)){
	print $e."\n";
}
